home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_25168_delFindCSTR < prev    next >
Text File  |  1994-09-21  |  246b  |  11 lines
  1. put getSFPath() into p
  2. get getFilesInDir(p, "TEXT", return)
  3. if it ¡ "" then
  4. get listselect(GetDlgID(1300), tStr("LibMsg",30), it)
  5. repeat with x = 1 to numLns(it)
  6. cbusy
  7. deletefile (p & line x of it)
  8. end repeat
  9. else
  10. answer tStr("LibMsg",31)
  11. end if